'KC8QNO Beacon Software for the Basic Stamp 2
'Following code for Modulated CW through a Mic
'This works good for 2m FM rigs

TONE		CON	900
QUIET		CON	0
DIT_LENGTH	CON	70			'These settings control the 
DAH_LENGTH	CON	210			'Code Speed.  The DAH should 
WRD_LENGTH	CON	415			'roughly be 3 times the DIT
INDEX1	VAR	BYTE
INDEX2	VAR	BYTE
ELEMENTS	VAR	BYTE
CHARACTER   VAR   BYTE
DELAY	CON	1500
I		VAR	BYTE
C		VAR	BYTE

IDENTIFY:
	FOR I = 1 TO 150			'This is the Timer for Identification
	PAUSE 1000
	NEXT
	LOW 1                        	'Engage PTT on Rig  (Can be any Pin. I picked 1)
	LOW 2					'Turn on LED on Stamp
	PAUSE 800		     
	FOR INDEX1 = 0 TO 2
	LOOKUP INDEX1,[20,20,20],CHARACTER           		'VVV
	GOSUB MORSE
	NEXT
	PAUSE 350
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[131,1],CHARACTER				'DE
	GOSUB MORSE
	NEXT
	PAUSE 350
	FOR INDEX1 = 0 TO 5
	LOOKUP INDEX1,[163,164,229,212,130,227],CHARACTER	'KC8QNO	
	GOSUB MORSE
	NEXT
	PAUSE 350
	FOR INDEX1 = 0 TO 6
	LOOKUP INDEX1,[129,35,3,164,227,68,66],CHARACTER	'TUSCOLA
	GOSUB MORSE
	NEXT
	PAUSE 350
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[164,227],CHARACTER				'CO
	GOSUB MORSE
	NEXT
	PAUSE 350
	FOR INDEX1 = 0 TO 1
	LOOKUP INDEX1,[194,2],CHARACTER				'MI
	GOSUB MORSE
	NEXT
	HIGH 1			     	'Disengage PTT on Rig
	HIGH 2				'Turn off LED on Stamp
	RETURN
MORSE:	ELEMENTS = CHARACTER & %00000111
	IF ELEMENTS = 7 THEN ADJUST1
	IF ELEMENTS = 6 THEN ADJUST2
BANG_KEY:
	FOR INDEX2 = 1 TO ELEMENTS
	IF CHARACTER >= 128 THEN DAH
	GOTO DIT
REENTER:
	CHARACTER = CHARACTER * 2
	NEXT
	GOSUB CHAR_SP
	RETURN
ADJUST1:
	ELEMENTS = 6
	GOTO BANG_KEY
ADJUST2:
	CHARACTER = CHARACTER & %11111011
	GOTO BANG_KEY
DIT:	FREQOUT 0,DIT_LENGTH,TONE
	FREQOUT 0,DIT_LENGTH,QUIET
	GOTO REENTER
DAH:	FREQOUT 0,DAH_LENGTH,TONE
	FREQOUT 0,DIT_LENGTH,QUIET
	GOTO REENTER
CHAR_SP:
	FREQOUT 0,DAH_LENGTH,QUIET
	RETURN
WORD_SP:
	FREQOUT 0,WRD_LENGTH,QUIET
	RETURN